home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / aminet2.lha / AminetRctInstall < prev    next >
Text File  |  1998-06-20  |  2KB  |  76 lines
  1. ; $VER: AminetRctInstall v1.0 (06/20/98)
  2.  
  3. (welcome "Welcome to AminetRct.yam Installer\nThis script will install AminetRct.yam\ninto your YAM:Rexx directory")
  4.  
  5. (set language
  6.     (askchoice
  7.         (choices "English" "Dansk" "Deutsch" "Dutch" "Français" "Norsk" "Portuguese" "Spanish")
  8.         (prompt "Install which language?")
  9.         (help "Choose which language you want to install")
  10.     )
  11. )
  12.  
  13. (select language
  14.     (run "join AminetRct1 English AminetRct2 AS AminetRct3"
  15.         (prompt "Joining files...")
  16.     )
  17.     (run "join AminetRct1 Dansk AminetRct2 AS AminetRct3"
  18.         (prompt "Joining files...")
  19.     )
  20.     (run "join AminetRct1 Deutsch AminetRct2 AS AminetRct3"
  21.         (prompt "Joining files...")
  22.     )
  23.     (run "join AminetFTP1 Dutch AminetFTP2 AS AminetRct3"
  24.         (prompt "Joining files...")
  25.     )
  26.     (run "join AminetRct1 Français AminetRct2 AS AminetRct3"
  27.         (prompt "Joining files...")
  28.     )
  29.     (run "join AminetRct1 Norsk AminetRct2 AS AminetRct3"
  30.         (prompt "Joining files...")
  31.     )
  32.     (run "join AminetRct1 Portuguese AminetRct2 AS AminetRct3"
  33.         (prompt "Joining files...")
  34.     )
  35.     (run "join AminetRct1 Spanish AminetRct2 AS AminetRct3"
  36.         (prompt "Joining files...")
  37.     )
  38. )
  39.  
  40. (set site
  41.     (askchoice
  42.         (choices "ftpmail@pub1.bryant.vix.com (US)"
  43.                  "ftp-mail@uni-paderborn.de   (Germany)")
  44.         (prompt "Use which FTPmail site?")
  45.         (help "Choose which the site you want to send the FTPMail requests to")
  46.     )
  47. )
  48.  
  49. (select site
  50.     (
  51.         (run "join AminetRct3 AminetRctUS AS AminetRct.yam")
  52.         (run "rename JoinMailUS TO JoinMail.yam")
  53.     )
  54.     (
  55.         (run "join AminetRct3 AminetRctDE AS AminetRct.yam")
  56.         (run "rename JoinMailDE TO JoinMail.yam")
  57.     )
  58. )
  59.  
  60. (copyfiles
  61.     (prompt "Copying file...")
  62.     (source "AminetRct.yam")
  63.     (dest   "YAM:Rexx/")
  64. )
  65.  
  66. (copyfiles
  67.     (prompt "Copying file...")
  68.     (source "JoinMail.yam")
  69.     (dest   "YAM:Rexx/")
  70. )
  71.  
  72. (exit "AminetRct.yam has been installed.\nCheck the readme file for instructions."
  73.     (quiet)
  74. )
  75.  
  76.